home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / albgene2.dir / 00903_Script_903 < prev    next >
Text File  |  1983-01-30  |  1KB  |  29 lines
  1. on chiamamenubar
  2.   global men,cisei
  3.   set cisei to true
  4.   
  5.     if objectP (men) then   forget men
  6.     
  7.   set men to window ("menubar")
  8.   if the machinetype < 255 then
  9.     set the filename of men to ("invenzioni:invenzio:icoinv.dir")
  10.   else
  11.     set a to char 1 of the moviepath
  12.     set the filename of men to (a & ":\invenzio\icoinv.dir")
  13.   end if
  14.   --  set s to rect (the stageLeft,the stageTop +420,the stageLeft+640,the stageTop + 480)
  15.   set s to rect (the stageLeft,the stageTop +10,the stageLeft+64,the stageTop + 48)
  16.   set the rect of window "menubar" to s
  17.   set the windowType of  window "menubar" to 3      
  18.   set s to rect (the stageLeft,the stageTop +418,the stageLeft+640,the stageTop + 480)
  19.   
  20.   --repeat with uno = 1 to 15
  21.   
  22.   --    set s to rect (the stageLeft,the stageTop +480-uno*4,the stageLeft+640,the stageTop + 480)
  23.   --    set s to rect (the stageLeft,the stageTop +480-uno*4,the stageLeft+640,the stageTop + 540-UNO*4)
  24.   set the rect of window "menubar" to s
  25.   open men
  26.   --end repeat
  27.   moveToFront window "menubar"
  28. end 
  29.